home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / Z-Miscellaneous / (c)$3.d64 / 1.c64 (.txt) next >
Commodore BASIC  |  2007-02-04  |  460b  |  15 lines
  1. 10 POKE631,19:POKE632,13:POKE633,82:POKE634,85:POKE635,78:POKE636,49:REM(null)
  2. 20 POKE637,48:POKE638,48:POKE639,13:POKE198,9:POKE52,208:POKE56,208:POKE49152,0
  3. 50 Q$=CHR$(34):PRINTCHR$(142)"[147]LOAD"Q$"1*ZETA"Q$",8
  4. 60 [151]44,192:[162]
  5. 100 [151]631,19:[151]632,13:[151]633,82:[151]634,85:[151]635,78:[151]636,50
  6. 120 [151]637,48:[151]638,48:[151]639,13:[151]198,9
  7. 150 Q$[178][199](34):[153]"LOADLOAD"Q$"BIT MAP"Q$",8,1
  8. 160 END
  9. 200 SYS3840
  10. 210 POKE631,19:POKE632,13:POKE633,82:POKE634,85:POKE635,78:POKE636,51
  11. 220 POKE637,48:POKE638,48:POKE639,13:POKE198,9
  12. 250 Q$=CHR$(34):PRINT"[147]LOAD"Q$"PROG"Q$",8,1
  13. 260 [128]
  14. 300 [158]30512
  15.